home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 March / 64er_Magazin_94-03_1994_Markt__Technik_de_Side_A.d64 / kalender prg. 4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  434 b   |  22 lines
  1. 10 input"datum 1 format ttmmjjjj ";d$
  2. 20 t=val(mid$(d$,1,2))
  3. 30 m=val(mid$(d$,3,2))
  4. 40 j=val(mid$(d$,5))
  5. 50 gosub 1000
  6. 60 j1=jd
  7. 70 input"datum 2 format ttmmjjjj ";d$
  8. 80 t=val(mid$(d$,1,2))
  9. 90 m=val(mid$(d$,3,2))
  10. 100 j=val(mid$(d$,5))
  11. 110 gosub 1000
  12. 120 r=jd-j1
  13. 130 print "dazwischen liegen"r"tage."
  14. 140 end
  15. 1000 rem kalender -> julianisch
  16. 1010 if m>2 then m=m-3:goto 1030
  17. 1020 m=m+9:j=j-1
  18. 1030 jh=int(j/100):ja=j-100*jh
  19. 1040 jd=int(146097*jh/4)+int(1461*ja/4)
  20. 1050 jd=jd+int((153*m+2)/5)+t
  21. 1060 return
  22.